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1. Purpose ; To plot as straight a line as possible given the desired number 

of x and y plotter increments (0.01 inch) as fixed point in- 
tegers at b ■ 39. 

2. Restrictions : The numbers X and Y should be consistent with the avail- 

able plotting space* 

3. Method 

3.1 If X and Y are both zero, return is made immediately 

3.2 Define 



02 Q if X y 



r 



p x - \ h - 

Olg if OZX ' ( 0ii 8 if O^Y 



10g if Y > 



If [xl < I Y f interchange P with P and X with Y 

x y 

Further define 

P, - P ♦ P + 20 Q (becomes address in PNC command) 
d x y o- 

P ■ P ♦ 20 ft (becomes address in PNG command) 

m - I y ( 



.1x1 

3*3 If M ■ 1 , P , is output |x) times; otherwise M is repeatedly 

accumulated. Whenever an overflow occurs P, is output, otherwise P 

is output. This is repeated until a total of | x | outputs have been 

made. 

3»U For a description of the plotter output commands see Recomp Technical 
Bulletin No. 2li, paragraphs lw2 and U.3* 

lu Use ; Although by no means necessary, it is intended that one ordinarily 
use the "Floating Point to Plotter Increment Conversion" subroutine 
to convert floating point data to the form required by this routine, 

U.l Definition of coordinates: 

When facing the plotter 

♦ x is the direction a line is drawn when the drum moves down 

- x is the direction a line is drawn when the drum moves up 

♦ y is the direction a line is drawn when the carriage moves left 

- y is the direction a line is drawn when the carriage moves right 
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lu2 Calling Sequences With X in A register and Y in R register transfer 
to origin of the subroutine, X and Y must be fixed point integers 
at a binary scale of 39. After line has been plotted return will be 
made to the next, location, 

CLA 1 

XAR <v or any sequence placing X in A and 

CLA X.S Y in R 

TRA L 
o 

RETURN 
U.3 It is not necessary for the pen to be down before calling this routine. 
5» Coding Information ; 

5.1 Locations used: 

This routine occupies £0o locations (i.e., L to L + li7). It destroys 
both L and V loops and all registers. All locations are used and none 
are erasable. 

5.2 Constants 

L + 12 02 Q at B - 18 
oo 

+ 13 01 8 » 

♦ 11* io 8 » 

+ 15 , Oii 8 •» 

L ♦ Ii3 1 at B - 39 
o 

5.3 This subroutine is relocatable by the method of AN-Q76. 

6. Remark: Change of Coordinate System 

The coordinate system as defined by h.l is such that when facing the 
plotter the x axis is positive upward and the y axis is positive to 
the left. It is frequently convenient to have the coordinate system 
defined in such a manner that the y axis is positive upward and the 
x axis is positive to the right (i.e., a 90 decree clockwise rotation 
of the standard plotter coordinate system. ) This result may be achieved 
by altering the following locations to read (in command format): 



L + 12 


+ 00 


oooao 





00 


00000 


° ♦ 13 


+ 00 


00100 





00 


00000 


+ Ik 


+ 00 


00020 





00 


00000 


♦ 15 


♦ 00 


00010 





00 


00000 
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0000.0 
+ CTL 
+ CTV 
+ PNC 
+ ADD 
+ CLA 
+ FST 
+ CLA 
+ CLA 

0010.0 
+ CTL 
+ CLA 

+ CLA 
+ CLA 
+ CLA 
+ CLA 
+ XAR 
+ XAR 

ooeo.o 

+ CLA 



0000.0 
0010.0 
0020.0 

7762 .0 

776O.O 
7776.0 

7772.0 



I 



+ 
+ 

+ 
+ 
+ 
+ 



CLA 
TZE 
FCA 
FST 
FCA 
FST 
CTL 



0020.0 
5.0 
.0 
0001 .0 
0010.0 
000*1.0 
0000.0 
0000.0 



777^.0 

lUklo 

777g.o 

777.6.0 
777^-0 

""""" .c 
jO.O 



0030.0 

+ ADD 7766.0 

+ add 7775-0 

+ CLA 7777.1 
+ STO 770O.O 
+ CLA 7776.1 
+ T°A 7770.0 
+ PMC 6020.0 
+ PNC 0020.0 



+ SAX 776O.O 
TRA 7762.O 



+ 70 6600.1 
+ STA 00*10.1 



+ TZE 7776.0 
+ TPL 7767.O 

0000 [0 



+ TRA 
+ XAR 



+ TPL 776O.O 

+ TRA 776O.I 

-CLA 0000.0 

- CLA 0000.0 

- CLA 0000.0 

- CLA 0000.0 
+ TZE 00** 0.0 
+ TRA 7765.O 

+ FST 777^.0 

+ SUB 7777.I 
+ TPL 7765.O 
+ XAR 0000.0 
+ TRA 7766.I 
+ XAR 0000.0 

+ CLA njh.o 

+ TRA 776O.O 



+ STO 7766.O 

+ STA 7767.O 

+ DfR 7770.1. 

t- XAR 0000.0 

-i- ctv oo'; 0.0 

+ 70 ooco.o 

+ TRA 7767.I 

-i- XAR 0000.0 



Page 3 



00*10.0 

+' SUB 
+ XAR 
+ TOV 
+ CLA 
+ CTL 
+ XAR 
+ ADD 
+ TRA 



6600 !o 

0000 !o 

0030.0 
0000.0 

777^.0 



+ TMl 3205.0 
+ ADD 776O.O 
+ TRA 7766.O 
- CLA 0000.1 
+ STO 776O.O 
+ ADD 7766.O 
+ ST( 
+ 70 



II 



66.0 
00.0 



